home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / uc31c_1.zip / LINES.SC_ / LINES.SC
Text File  |  1993-04-22  |  199b  |  13 lines
  1. ; lines.scr
  2. ;GdiSetWindow(WinGetDesktop())
  3. i=0
  4. GdiCreatePen(1,1,255,0,0)
  5. while (i<640)
  6.   GdiMoveTo(0,0)
  7.   GdiLineTo(i,480)
  8.   GdiMoveTo(640,480)
  9.   GdiLineTo(i,0)
  10.   i = i+4
  11. endwhile
  12. exit 
  13.